home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS08.ADF / Text / PrintSpooler < prev    next >
Internet Message Format  |  1986-04-02  |  3KB
  1. Path: uwmcsd1!uwmacc!uwvax!seismo!ut-sally!pyramid!amiga!andy
  2. From: andy@amiga.UUCP (Andy Finkel)
  3. Newsgroups: net.micro.amiga
  4. Subject: Corrected Print Spooler for the Amiga
  5. Date: 21 Feb 86 21:56:41 GMT
  6. Organization: Commodore Business Machines, 1200 Wilson Drive, West Chester, PA 19380
  7.  
  8. New, improved Print Spooler
  9.  
  10. The old (yesterday) version had a memory leak.  This one doesn't.
  11. And a few other things are fixed, thanks to BruceB of C/A.
  12.  
  13. How to use:
  14. Install the 3 parts in the s directory of your Amiga workbench (or CLI)
  15. disk.  
  16. execute startspool once after booting up by typing:
  17.  
  18. run execute startspool
  19.  
  20. To spool a file for printing, type
  21.  
  22. execute print filename
  23.  
  24. -------------------------------------------
  25. :s/startspool
  26. -------------------------------------------
  27. ; Simple Print Spooler
  28. ; Program by Andy Finkel
  29. ; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
  30. ; This is contributed free software.
  31. ; Permission to copy and use as long as this notice is included."
  32. ; Permission NOT given to sell this program
  33. ; (I'd feel guilty if someone paid for this, it was too easy to do!)
  34. ;
  35. IF NOT EXISTS ram:spool
  36. makedir ram:spool
  37. ENDIF
  38. IF NOT EXISTS ram:c
  39. makedir ram:c
  40. ENDIF
  41. IF NOT EXISTS ram:t
  42. makedir ram:t
  43. ENDIF
  44. copy c:run to ram:c
  45. copy c:copy to ram:c
  46. copy c:delete to ram:c
  47. copy c:echo to ram:c
  48. copy c:execute to ram:c
  49. copy c:wait to ram:c
  50. copy c:quit to ram:c
  51. copy c:if to ram:c
  52. copy c:endif to ram:c
  53. copy s:spooler to ram:c
  54. cd ram:c
  55. run > NIL: quit +
  56. execute ram:c/spooler
  57. ; end of file
  58.  
  59. ---------------------
  60. :s/spooler
  61. ---------------------
  62. ; Simple Print Spooler
  63. ; Program by Andy Finkel
  64. ; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
  65. ; This is contributed free software.
  66. ; Permission to copy and use as long as this notice is included."
  67. ; Permission NOT given to sell this program
  68. ; (I'd feel guilty if someone paid for this, it was too easy to do!)
  69. ;
  70. IF EXISTS ram:spool/file1
  71. copy > NIL: ram:spool/file1 to prt:
  72. echo > prt: "  "
  73. delete ram:spool/file1
  74. ENDIF
  75. ;
  76. IF EXISTS ram:spool/file2
  77. copy > NIL: ram:spool/file2 to prt:
  78. echo > prt: "  "
  79. delete ram:spool/file2
  80. ENDIF
  81. ;
  82. IF EXISTS ram:spool/file3
  83. copy > NIL: ram:spool3 to prt:
  84. echo > prt: "  "
  85. delete ram:spool/file3
  86. ENDIF
  87. ;
  88. wait 30
  89. run > NIL: quit +
  90. execute ram:c/spooler
  91. ;end of file
  92.  
  93. -----------------------
  94. :s/print
  95. -----------------------
  96. .k file/a
  97. ; Simple Print Spooler
  98. ; Program by Andy Finkel
  99. ; Copyright (c) 1986 Andy Finkel, Commodore/Amiga
  100. ; This is contributed free software.
  101. ; Permission to copy and use as long as this notice is included."
  102. ; Permission NOT given to sell this program
  103. ; (I'd feel guilty if someone paid for this, it was too easy to do!)
  104. ;
  105. IF NOT EXISTS ram:spool/file1
  106. copy <file> to ram:spool/file1
  107. skip
  108. ENDIF
  109. IF NOT EXISTS ram:spool/file2
  110. copy <file> to ram:spool/file2
  111. skip
  112. ENDIF
  113. IF NOT EXISTS ram:spool/file3
  114. copy <file> to ram:spool/file3
  115. skip
  116. ENDIF
  117. echo "spooler busy, try again later"
  118. LAB
  119. ;end of file
  120. ----------------------------------
  121.  
  122.  
  123.             andy finkel
  124.             Commodore(Amiga)
  125.  
  126. Disclaimer:
  127. "I disclaim all responsibilities, all sizes, all shapes, all colors"
  128.